T:Type, f:(TT), h:(T).
(x:T. (f(x) = x)  ((h(f(x))) < (h(x))))
 (L:(T List), x, y:T. y=f*(x) via L  ((x = y)  ((h(y)) < (h(x))))) 

latex

Definitions	t  T, type List, A List, s = t, x:AB(x), x:A. B(x), [car / cdr], y=f*(x) via L, Type, left + right, P  Q, f(a), a < b, P  Q, , [], {x:A| B(x)} , , |g|, S  T, last(L), x:A  B(x), P & Q, hd(l), {T}, Void, P  Q, False, A, Dec(P), A  B, b, x:A. B(x), b | a, a ~ b, a  b, a <p b, a < b, A c B, x f y, xL. P(x), (xL.P(x)), ||as||, #$n, i  j , , , <a, b>
Lemmas	hd wf, decidable lt, length wf1, fun-path-cons, nat wf, fun-path wf